home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1995 June / MacFormat 25.iso / Shareware City / Developers / fortran-to-c-translator-11 / Mac F2C 1.1 / Mac F2C Libraries / libF77 Sources / ef1asc_.c < prev    next >
Text File  |  1995-01-28  |  453b  |  22 lines
  1. /* EFL support routine to copy string b to string a */
  2.  
  3. #include "f2c.h"
  4.  
  5.  
  6. #define M    ( (long) (sizeof(long) - 1) )
  7. #define EVEN(x)    ( ( (x)+ M) & (~M) )
  8.  
  9. #ifdef KR_headers
  10. extern VOID s_copy();
  11. ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
  12. #else
  13. extern void s_copy(char*,char*,ftnlen,ftnlen);
  14. int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
  15. #endif
  16. {
  17. s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
  18. #ifdef __cplusplus
  19. return 0;
  20. #endif
  21. }
  22.